﻿Public Class BarCodeButtonCell

    Private bcc As BarCodeCell

    Public Property BarCodeCell As BarCodeCell
        Get
            Return bcc
        End Get
        Set(ByVal value As BarCodeCell)
            bcc = value
        End Set
    End Property

    Private Sub BarCodeButtonCell_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        If IsNothing(bcc) Then
            Exit Sub
        End If

        bcc.BeginInput()
    End Sub
End Class
